home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / e / ddmoduls.lha / dd_Modules / dd_dos / dd_filenotifytest.e < prev   
Text File  |  1995-08-13  |  375b  |  19 lines
  1. MODULE '*dd_filenotify'
  2. MODULE 'dos/dos'
  3.  
  4. PROC main()
  5.   DEF prefsnotify:PTR TO filenotify
  6.   DEF mask
  7.   NEW prefsnotify.new('SYS:')
  8.   mask:=Wait(SIGBREAKF_CTRL_C OR
  9.        prefsnotify.signalmask())
  10.   IF mask AND SIGBREAKF_CTRL_C
  11.     PrintF('quit.\n')
  12.     CleanUp()
  13.   ENDIF
  14.   IF mask AND prefsnotify.signalmask()
  15.     PrintF('notification.\n')
  16.   ENDIF
  17.   END prefsnotify
  18. ENDPROC
  19.